home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / oct94 / mp_fig15.gif < prev    next >
Graphics Interchange Format  |  1996-07-10  |  19.9 KB  |  801x600  |  4-bit (9 colors)
   ocr: Paradox for' Windows File Edit Language Debug Properties Window Help M - Form Design : EXAMP.FSL * 1 EXAMP-Forml-Var EXAMP-HPage2-timer Var T method timer(var eventInfo TimerEvent) siLoopCount Smallint endUar if siloopCount > 5000 or * cancelbutton'value then self.killTimer() Edit: Linel Col1 else loopBody() siloopCount == siLoopCount + 1 endif endMethod - Edit Line: 1 Coll le EXAMP:#Forml:myMethod method myMethod() t 51LoopCount = 1 self.setTimer(1) endMethod 4 F Edit Line 4 Col20 #Page2 [Page]